home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / cross / GBDK-2.0.lha / GBDK / lib / set_spr.s < prev    next >
Text File  |  1998-10-01  |  411b  |  30 lines
  1.     .include    "global.s"
  2.  
  3.     .area    _CODE
  4.  
  5.     ;; Set sprite number C to tile D
  6. .set_sprite_tile::
  7.     LD    HL,#.OAM+2    ; Calculate origin of sprite info
  8.  
  9.     SLA    C        ; Multiply C by 4
  10.     SLA    C
  11.     LD    B,#0x00
  12.     ADD    HL,BC
  13.  
  14.     LD    A,D        ; Set sprite number
  15.     LD    (HL),A
  16.     RET
  17.  
  18. _set_sprite_tile::
  19.     PUSH    BC
  20.  
  21.     LDA    HL,4(SP)    ; Skip return address and registers
  22.     LD    C,(HL)        ; C = nb
  23.     INC    HL
  24.     LD    D,(HL)        ; D = tile
  25.  
  26.     CALL    .set_sprite_tile
  27.  
  28.     POP    BC
  29.     RET
  30.